This is METAFONT, WAITS Version 0.96 (preloaded base=plain 85.9.5)  5 SEP 1985 21:35
**\tracingall

*pickup pencircle; draw (0,epsilon)..(10,-epsilon);

pickup<secondary>->if.numeric(EXPR0):numeric_pickup_.else:pen_pickup_.fi(EXPR0)
{pencircle}
(EXPR0)<-future pen
{if}
{numeric(future pen)}
{false}

pen_pickup_<primary>->currentpen:=(EXPR0)yscaled.aspect_ratio;pen_top:=(ypart.p
enoffset.left.of.currentpen)/aspect_ratio;pen_bot:=(ypart.penoffset.right.of.cu
rrentpen)/aspect_ratio;pen_lft:=xpart.penoffset.down.of.currentpen;pen_rt:=xpar
t.penoffset.up.of.currentpen;path.currentpen_path;
{fi}
(EXPR0)<-future pen
{(future pen)yscaled(1)}
Pen polygon at line 0 (newly created):
(0.5,0)
 .. (0,0.5)
 .. (-0.5,0)
 .. (0,-0.5)
 .. cycle

{currentpen:=pen}
{((-1,0))penoffset(pen)}
{ypart((0,0.5))}
{(0.5)/(1)}
{pen_top:=0.5}
{((1,0))penoffset(pen)}
{ypart((0,-0.5))}
{(-0.5)/(1)}
{pen_bot:=-0.5}
{((0,-1))penoffset(pen)}
{xpart((-0.5,0))}
{pen_lft:=-0.5}
{((0,1))penoffset(pen)}
{xpart((0.5,0))}
{pen_rt:=0.5}
{path}

draw<expr>->addto_currentpicture.doublepath↑(EXPR0)withpen.currentpen
{-(0.00002)}
Path at line 0, before choices:
(0,0.00002){curl 1}
 ..{curl 1}(10,-0.00002)

Path at line 0, after choices:
(0,0.00002)..controls (3.33333,0) and (6.66667,0)
 ..(10,-0.00002)

(EXPR0)<-path

addto_currentpicture->addto.currentpicture
{addto}

↑<primary>->begingroup(EXPR2)transformed.currenttransform.endgroup
(SUFFIX0)<-
(SUFFIX1)<-↑
(EXPR2)<-path
{begingroup}
{(path)transformed((0,0,1,0,0,1))}
{endgroup}
Path at line 0, before subdivision into octants:
(0,0.00002)..controls (3.33333,0) and (6.66667,0)
 ..(10,-0.00002)..controls (6.66667,0) and (3.33333,0)
 ..cycle

Cycle spec at line 0, after subdivision and double autorounding:
(0,0.00002) % beginning in octant `ESE'
   ..controls (3.33333,0) and (6.66667,0)
 ..(10,-0.00002) % segment 0
% entering octant `ENE'
% entering octant `NNE'
% entering octant `NNW'
% entering octant `WNW'
   ..controls (6.66667,0) and (3.33333,0)
 ..(0,0.00002) % segment 1
% entering octant `WSW'
% entering octant `SSW'
% entering octant `SSE'
 & cycle

Tracing edges at line 0: (weight 1)
@ Octant ESE (1 offset), from (-0.5,0.00002) to (10,-0.50002)
@ transition line 2, from (-0.5,0.00002) to (0,-0.49998)
@ transition line 1, from (10,-0.50002) to (10,-0.50002)
(3,0)
@ Octant ENE (1 offset), from (10,-0.50002) to (10.5,-0.00002)
@ transition line 0, from (10,-0.50002) to (10,-0.50002)
@ transition line 1, from (10,-0.50002) to (10.5,-0.00002)
(3,-1)(10,-1)
@ Octant NNE (0 offsets), from (10.5,-0.00002) to (10.5,-0.00002)
@ transition line 1, from (10.5,-0.00002) to (10.5,-0.00002)
@ Octant NNW (0 offsets), from (10.5,-0.00002) to (10.5,-0.00002)
@ transition line 0, from (10.5,-0.00002) to (10.5,-0.00002)
@ Octant WNW (1 offset), from (10.5,-0.00002) to (0,0.50002)
@ transition line 2, from (10.5,-0.00002) to (10,0.49998)
@ transition line 1, from (0,0.50002) to (0,0.50002)
(10,0)(0,0)
@ Octant WSW (1 offset), from (0,0.50002) to (-0.5,0.00002)
@ transition line 0, from (0,0.50002) to (0,0.50002)
@ transition line 1, from (0,0.50002) to (-0.5,0.00002)
(0,1)
@ Octant SSW (0 offsets), from (-0.5,0.00002) to (-0.5,0.00002)
@ transition line 1, from (-0.5,0.00002) to (-0.5,0.00002)
@ Octant SSE (0 offsets), from (-0.5,0.00002) to (-0.5,0.00002)
@ transition line 0, from (-0.5,0.00002) to (-0.5,0.00002)
(0,0).


*show currentpicture;
{show}
>> Edge structure at line 0:
row 0: 0+ 0- |
row -1: 10- 3+ |

! OK.
<*> show currentpicture;
                        
? x
 
Here is how much of METAFONT's memory you used:
 1 string out of 695
 0 string characters out of 9148
 5677 words of memory out of 60001
 522 symbolic tokens out of 2100
 3i,60n,2r,4p,52b stack positions out of 30i,100n,300r,150p,500b